
(define (make-accumulator n)
    (lambda (x)
        (begin
            (set! n (+ n x))
            n
        ) 
    )
)

(define A (make-accumulator 5))
(display (A 10))
(newline)
(display (A 10))
(exit)